home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 26 / AACD 26.iso / AACD / Programming / ace_gpl_release / src / lib / asm / locate.s < prev    next >
Encoding:
Text File  |  1998-10-04  |  3.1 KB  |  153 lines
  1. ;
  2. ; locate.s -- an ACE linked library module: LOCATE.
  3. ; Copyright (C) 1998 David Benn
  4. ; 
  5. ; This program is free software; you can redistribute it and/or
  6. ; modify it under the terms of the GNU General Public License
  7. ; as published by the Free Software Foundation; either version 2
  8. ; of the License, or (at your option) any later version.
  9. ;
  10. ; This program is distributed in the hope that it will be useful,
  11. ; but WITHOUT ANY WARRANTY; without even the implied warranty of
  12. ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13. ; GNU General Public License for more details.
  14. ;
  15. ; You should have received a copy of the GNU General Public License
  16. ; along with this program; if not, write to the Free Software
  17. ; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
  18. ;
  19. ; Author: David J Benn
  20. ;   Date: 19th March 1994
  21. ;
  22. ; registers d0-d6 and a0-a3 are modified by some of the following. BEWARE!
  23. ;
  24. ; a4,a5 are used by link/unlk.
  25. ; a6 is library base holder.
  26. ; a7 is stack pointer. 
  27. ; d7 is used for array index calculations.
  28. ;
  29.  
  30. ; * CONSTANTS *
  31. Font        equ 52
  32. tf_YSize    equ 20
  33. tf_XSize    equ 24
  34.  
  35.     xdef    _locate
  36.  
  37.     ; external references    
  38.     xref    _IntuiMode
  39.     xref    _RPort
  40.     xref    _GfxBase
  41.     xref    _LVOMove
  42.     xref    _DOSBase
  43.     xref    _LVOWrite
  44.     xref    _stdout
  45.     xref    _longtemp
  46.     xref    _locatestr
  47.  
  48.     SECTION locate_code,CODE
  49.  
  50. ;
  51. ; LOCATE - places the cursor at LINE,COLUMN in the current window or screen.
  52. ;        d0=LINE; d1=COLUMN
  53. ;    
  54. _locate:
  55.     move.l    a6,-(sp)    ; store a6 (LOCATE called within C function)
  56.  
  57.     ; is line value too low?
  58.     cmpi.w    #1,d0
  59.     bge.s    _checklinehi
  60.     move.w    #1,d0
  61.  
  62. _checklinehi:
  63.     ; is line value too high?
  64.     cmpi.w    #56,d0            ; arbitrarily high (for height of 400)
  65.     ble.s    _checkcollo
  66.     move.w    #56,d0
  67.  
  68. _checkcollo:
  69.     ; is column value too low?
  70.     cmpi.w    #1,d1
  71.     bge.s    _checkcolhi
  72.     move.w    #1,d1
  73.     
  74. _checkcolhi:    
  75.     ; is column value too high?
  76.     cmpi.w    #80,d1            
  77.     ble.s    _changelocn
  78.     move.w    #80,d1
  79.  
  80. _changelocn:
  81.     ; are we in screen or window mode?
  82.     cmp.b    #0,_IntuiMode
  83.     beq.s    _changewindowlocn
  84.  
  85.     ; change screen location for PRINTS (and graphics commands).
  86.     ; (first gets font height and width)
  87.     movea.l    _RPort,a0
  88.     movea.l    Font(a0),a0
  89.     move.w    tf_YSize(a0),d2    ; height
  90.     move.w    tf_XSize(a0),d3    ; width
  91.  
  92.     mulu    d2,d0    
  93.      subi.w    #2,d0    ; y=LINE*height - 2
  94.  
  95.     subi.w    #1,d1
  96.     mulu    d3,d1    ; x=(COLUMN-1)*width
  97.  
  98.     ; swap d0 and d1
  99.     move.w    d0,d2
  100.     move.w    d1,d0
  101.     move.w    d2,d1
  102.  
  103.     ; move to new x,y
  104.     movea.l    _RPort,a1
  105.     movea.l    _GfxBase,a6
  106.     jsr    _LVOMove(a6)
  107.  
  108.     move.l    (sp)+,a6
  109.  
  110.     rts
  111.             
  112. _changewindowlocn:
  113.     ; convert LINE value to 2 ASCII digits and place in locate string
  114.     ext.l    d0
  115.     divu    #10,d0
  116.     move.l    d0,_longtemp
  117.     lea    _locatestr,a0
  118.     add.w    #48,d0
  119.     and.b    #$ff,d0
  120.     move.b    d0,1(a0)
  121.     move.l    _longtemp,d0
  122.     swap    d0
  123.     add.w    #48,d0
  124.     and.b    #$ff,d0
  125.     move.b    d0,2(a0)
  126.  
  127.     ; convert COLUMN value to 2 ASCII digits and place in locate string
  128.     ext.l    d1
  129.     divu    #10,d1
  130.     move.l    d1,_longtemp
  131.     lea    _locatestr,a0
  132.     add.w    #48,d1
  133.     and.b    #$ff,d1
  134.     move.b    d1,4(a0)
  135.     move.l    _longtemp,d1
  136.     swap    d1
  137.     add.w    #48,d1
  138.     and.b    #$ff,d1
  139.     move.b    d1,5(a0)
  140.  
  141.     ; change cursor location
  142.     move.l    _DOSBase,a6
  143.     move.l    _stdout,d1
  144.     move.l    #_locatestr,d2
  145.     move.l    #7,d3
  146.     jsr    _LVOWrite(a6)
  147.     
  148.     move.l    (sp)+,a6
  149.     
  150.     rts
  151.  
  152.     END
  153.